Don't use face for prefix if using echo area

With some themes the switch from the text from echo-keystrokes with no
face to the which-key text with a face is annoying.

diff --git a/which-key.el b/which-key.el
index f4786e6706ea93e4d15dc0b78f6f753131bb0c0a..7025fc5dc46e9431c26f9fbca36d8040bd7f5f38 100644 (file)
--- a/which-key.el
+++ b/which-key.el
@@ -1408,8 +1408,10 @@ enough space based on your settings and frame size." prefix-keys)
              (width (nth page-n (plist-get which-key--pages-plist :page-widths)))
              (n-shown (nth page-n (plist-get which-key--pages-plist :keys/page)))
              (n-tot (plist-get which-key--pages-plist :tot-keys))
-             (prefix-w-face (which-key--propertize-key prefix-keys))
-             (dash-w-face (propertize "-" 'face 'which-key-key-face))
+             (prefix-w-face (if (eq which-key-show-prefix 'echo) prefix-keys
+                              (which-key--propertize-key prefix-keys)))
+             (dash-w-face (if (eq which-key-show-prefix 'echo) "-"
+                            (propertize "-" 'face 'which-key-key-face)))
              (status-left (propertize (format "%s/%s" (1+ page-n) n-pages)
                                       'face 'which-key-separator-face))
              (status-top (propertize (which-key--maybe-get-prefix-title